home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1028 < prev    next >
Text File  |  1996-11-01  |  733b  |  17 lines
  1. /stf systemdict/settransfer get def
  2. /ctf systemdict/currenttransfer get def
  3. systemdict/setcolortransfer known{/cstf systemdict/setcolortransfer get def}if
  4. /cmykprsnt /currentcmykcolor where{pop T}{F}ifelse def
  5. /setcmykcolor where{pop}
  6.  {/setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt
  7.  {pop 0}if 3 1 roll}repeat R pop}B}ifelse
  8. /C/setcmykcolor load def
  9. /stovp0/setoverprint where{/setoverprint get}{{pop}}ifelse def
  10. /stovp{dup/ovp X stovp0}B
  11. /sttrp0/settrap where{/settrap get}{{pop}}ifelse def
  12. /sttrp{dup/trp X sttrp0}B
  13. /setcolorscreen where{pop/docpat where{pop}{/docpat T def}ifelse}
  14.  {/docpat F def/setcolorscreen{setscreen pop pop pop pop pop pop pop pop pop}B}ifelse
  15. /xpscrn{p2 setscreen}def
  16. /xpcscrn{setcolorscreen}def
  17.